home *** CD-ROM | disk | FTP | other *** search
/ More Anime Pin-Up Beauties / More Anime Pin-Up Beauties.iso / pc / east / gpx05.dir / 00196_Script_196 < prev    next >
Text File  |  1998-06-22  |  2KB  |  83 lines
  1. -- For PICT
  2. -- ++++++++++++++++++++++++++++++++ get Picture & Display vMat of vBox
  3. on dispPictBOX vName,  vTyp
  4.     global gPathPict
  5.     global gPathLine
  6.     global gBOXnum
  7.  
  8.     cursor 4
  9.  
  10.     puppetSprite 20,TRUE
  11.     spriteBox 20, 640, 480, 640, 480
  12.     set the visibility of sprite 20 to FALSE
  13.     upDateStage
  14.     getPicture(the number of cast "BOX.PICT", vName)
  15.     setPictSprite(20, "BOX.PICT", 0)
  16.  
  17.     if (vTyp = 1) then
  18.         spriteBox 20, 2, 28, 602, 478
  19.     end if
  20.  
  21.     if (vTyp = 2) then
  22.         spriteBox 20, 2, 28, 370, 478
  23.     end if
  24.  
  25.     set the visibility of sprite 20 to TRUE
  26.     cursor -1
  27.     upDateStage
  28.  
  29. -- ++++++++++++++++++++++++++++++++ get Picture & Display vNumber
  30. on dispPictSLD vNumber
  31.     global gPathPict
  32.     global gPathLine
  33.  
  34.     cursor 4
  35.  
  36.     put item 2 of line vNumber of field "SLIDE.LIST" into vPorL
  37.     put value(item 4 of line vNumber of field "SLIDE.LIST") into vTyp
  38.     if vPorL = "P" then    
  39.         put gPathPict & "P" & (item 3 of line vNumber of field "SLIDE.LIST") into vName
  40.     else
  41.         put gPathLine & "L" & (item 3 of line vNumber of field "SLIDE.LIST") into vName
  42.     end if
  43.  
  44.     puppetSprite 20,TRUE
  45.     spriteBox 20, 640, 480, 640, 480
  46.     set the visibility of sprite 20 to FALSE
  47.     upDateStage
  48.     getPicture(the number of cast "SLD.PICT", vName)
  49.     setPictSprite(20, "SLD.PICT", 0)
  50.  
  51.     if (vTyp = 1) then
  52.         spriteBox 20, 2, 28, 602, 478
  53.     end if
  54.  
  55.     if (vTyp = 2) then
  56.         spriteBox 20, 118, 28, 118 + 368, 478
  57.     end if
  58.  
  59.     set the visibility of sprite 20 to TRUE
  60.     cursor -1
  61.     upDateStage
  62.  
  63.  
  64. -- ++++++++++++++++++++++++++++++++ erase Picture from stage
  65. on erasePictBOX
  66.     cursor 4
  67.     spriteBox 20, 640, 480,640,480
  68.     set the visibility of sprite 20 to FALSE
  69.     clrPicture("BOX.PICT")
  70.     puppetSprite 20, FALSE
  71.     upDateStage
  72.     cursor -1
  73.  
  74. -- ++++++++++++++++++++++++++++++++ erase Picture from stage
  75. on erasePictSLD
  76.     cursor 4
  77.     spriteBox 20, 640, 480,640,480
  78.     set the visibility of sprite 20 to FALSE
  79.     clrPicture("SLD.PICT")
  80.     puppetSprite 20, FALSE
  81.     upDateStage
  82.     cursor -1
  83.